%
Set conDB = Server.CreateObject("ADODB.Connection")
conDB.open szDatabaseDSN,"",szDatabasePassword
szSQL = "SELECT * FROM IGUK WHERE (ProdID = '" + Request("ProdID") + "')"
Set rsProducts = Server.CreateObject("ADODB.Recordset")
rsProducts.Open szSQL, conDB, 3, 3
Ctype = rsproducts.fields("ConsoleType")
Pname = rsproducts.fields("ProductName")
Bdesc = rsproducts.fields("BriefDescription")
%>
* <%=rsproducts.fields("ProductName")%> from our <%=rsproducts.fields("ConsoleType")%> section at import games uk. Fast Free Next Day UK delivery on orders over £14.99
<%
' ShopInfo.asp
'
' Shared Shopping cart variables
'
' (C) 2003 Entechnica Web Design. All rights reserved. unless its ugly al who can have it :)
%>
<%
'On Error Resume Next
rsProducts.MoveLast
rsProducts.MoveFirst
strRecount = Rsproducts.RecordCount
do while Not rsProducts.eof
strPrice = rsProducts.fields("UnitPrice")
strNewPrice = (strPrice/20*19)
'Price Trimming Module (al 2003)
IF LEN(strNewPrice)=6 Then
strNewPrice = LEFT(strNewPrice,4)
End If
IF LEN(strNewPrice)=7 Then
strNewPrice = LEFT(strNewPrice,5)
End If
IF LEN(strNewPrice)=8 Then
strNewPrice = LEFT(strNewPrice,6)
End If
%>